home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / TestFiles / TestAlert < prev    next >
Encoding:
Text File  |  2000-05-07  |  766 b   |  41 lines
  1. scr <- Screen new:  'TestScreen'
  2. scr setScreenModeID: 16r40D20001
  3. scr open
  4.  
  5. win <- Window new: 'TestWindow'
  6.  
  7. win setFlags:      16r100F
  8. win setIDCMPFlags: 16r140
  9.  
  10. win openOnScreen:  'TestScreen'
  11.  
  12. alrt <- Alert new: 'TestAlert'
  13.  
  14. alrt setAlertNumber:  16r7FFFFFFF
  15. alrt setAlertMessage: 'This is a Test!'
  16. alrt setAlertHeight:  40
  17.  
  18. returnValue <- 0
  19. returnValue <- alrt displayAlert
  20.  
  21. ' ' print
  22.  
  23. ('User returned ', (returnValue asString)) print
  24.  
  25. returnValue <- alrt getAlertNumber
  26.  
  27. ('Alert number is ', (returnValue asString)) print
  28.  
  29. returnValue <- alrt getAlertHeight
  30.  
  31. ('Alert Height is ', (returnValue asString)) print
  32.  
  33. returnString <- String new
  34. returnString <- alrt getAlertMessage
  35.  
  36. ('Alert message is ''', returnString, '''') print
  37.  
  38. alrt remove
  39. win  close
  40. scr  close
  41.